'This is a simple program to set the Model 2001 to the frequency function.

'DEC   3/92



CALL Initialize(21, 0)          ' init as system controller

'--- Setup 2001 measurement mode

   CLS

   CALL Send(16, ":SENS:FUNC 'FREQ'", Gpib.status%)

   FOR I = 1 TO 5000: NEXT I

   CALL Send(16, ":SENS:DATA?", Gpib.status%)

   '--- Read value(s) from 199

   k199data$ = SPACE$(25)

   CALL Enter(k199data$, Gpib.len%, 16, Gpib.status%)

   PRINT k199data$

THEEND:

        PRINT "What happened???"

END